home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 December / Ahoy_Magazine_86-12_1986_Double_L.d64 / The Editor (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  48 lines
  1. 10 rem *** the editor *** buck childress ***
  2. 20 rem *** p.o. box 13575 salem, or 97309 ***
  3. 30 printchr$(147)"loading and checking data line:":j=49152:l=100:c=11
  4. 40 printchr$(19)tab(31)l:print:forb=0toc:reada:ifa<0ora>255then60
  5. 50 pokej+b,a:x=x+a:nextb:reada:ifa=xthen70
  6. 60 print"error in data line:"l:end
  7. 70 x=0:j=j+12:l=l+10:ifl<471then40
  8. 80 print"the data is ok and loaded...":print
  9. 90 print"sys 49152 to activate...":end
  10. 100 data120,169,22,162,192,141,20,3,142,21,3,169,1164
  11. 110 data15,162,3,141,24,212,134,252,88,96,173,190,1490
  12. 120 data193,174,141,2,142,190,193,224,4,240,64,224,1791
  13. 130 data5,208,11,205,190,193,240,52,32,177,193,76,1582
  14. 140 data81,192,166,253,164,203,132,253,192,64,240,36,1976
  15. 150 data228,203,208,17,173,139,2,197,251,240,25,133,1816
  16. 160 data251,198,252,16,19,169,3,133,252,169,0,162,1624
  17. 170 data23,157,0,212,202,16,250,169,65,141,4,212,1451
  18. 180 data76,49,234,166,203,228,254,240,247,134,254,224,2309
  19. 190 data64,240,241,165,207,141,189,193,164,211,177,209,2201
  20. 200 data141,187,193,140,188,193,165,209,133,65,165,210,1989
  21. 210 data133,66,169,32,224,47,208,8,145,209,136,16,1393
  22. 220 data251,76,151,193,224,44,208,12,145,209,200,196,1909
  23. 230 data213,144,249,240,247,76,151,193,224,4,208,19,1968
  24. 240 data196,213,176,165,162,9,202,240,5,200,196,213,1977
  25. 250 data144,248,132,211,76,151,193,224,5,208,15,192,1799
  26. 260 data0,240,69,162,9,202,240,238,136,240,235,76,1847
  27. 270 data197,192,224,3,208,5,160,0,76,182,192,224,1663
  28. 280 data6,208,30,164,213,177,209,201,32,208,19,136,1603
  29. 290 data48,15,177,209,201,32,240,247,201,160,208,5,1743
  30. 300 data173,189,193,208,238,200,76,182,192,224,1,208,2084
  31. 310 data20,166,214,160,6,232,224,24,144,5,240,25,1460
  32. 320 data76,81,192,136,208,243,76,137,193,224,7,208,1781
  33. 330 data15,166,214,240,239,160,6,202,240,107,136,208,1933
  34. 340 data250,76,137,193,224,33,208,88,166,214,224,24,1837
  35. 350 data176,218,232,224,25,176,213,181,217,16,247,142,2067
  36. 360 data192,193,181,217,41,128,157,194,193,232,224,24,1976
  37. 370 data144,244,240,242,32,101,233,174,192,193,181,217,2193
  38. 380 data41,15,73,128,149,217,172,192,193,200,185,217,1782
  39. 390 data0,41,15,24,125,194,193,153,217,0,232,200,1394
  40. 400 data224,24,144,238,240,236,165,242,41,15,73,128,1770
  41. 410 data133,242,160,0,132,211,32,124,232,76,151,193,1686
  42. 420 data224,28,240,3,76,81,192,162,24,165,211,201,1607
  43. 430 data40,144,3,56,233,40,168,24,32,240,255,32,1267
  44. 440 data177,193,132,198,132,207,173,187,193,174,189,193,2148
  45. 450 data240,3,56,233,128,172,188,193,145,65,76,81,1580
  46. 460 data192,160,0,132,199,132,212,132,216,96,0,255,1726
  47. 470 data255,1,2,3,4,5,6,0,0,0,0,0,276
  48.